Imports System.Data.SqlClient
Imports System.Xml
Public Class dImputacion
    Public Function Insertar(ByVal DescripcionImp As String, ByVal Saldo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEDescripcionimp", DescripcionImp))
        Parametros.Add(New SqlParameter("@pESaldo", Saldo))
        Return CapaDeDatos.dConexion.ABM("STORE_TblImputacionAlta", Parametros)
    End Function
    Public Function Existe(ByVal CodigoImputacion As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoImputacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblImputacionBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Eliminar(ByVal CodigoImputacion As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoImputacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblImputacionELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoImputacion As Integer, ByVal DescripcionImp As String, ByVal Saldo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoImputacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        If DescripcionImp <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcionimp", DescripcionImp))
        End If
        If Saldo <> "" Then
            Parametros.Add(New SqlParameter("@pESaldo", Saldo))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblImputacionMODIFICAR", Parametros)
    End Function
    Public Function MostrarDescripcion(ByVal CodigoImputacion As Integer) As String
        Dim Parametros As ArrayList = New ArrayList
        If CodigoImputacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblImputacionBUSCARFILTRADO", Parametros).Tables(0).Rows(0)("Descripcionimp").ToString()
    End Function
    Public Function BuscarFiltrado(ByVal CodigoImputacion As Integer, ByVal DescripcionImp As String, ByVal Saldo As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoImputacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        If DescripcionImp <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcionimp", DescripcionImp))
        End If
        If Saldo <> "" Then
            Parametros.Add(New SqlParameter("@pESaldo", Saldo))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblImputacionBUSCARFILTRADO", Parametros)
    End Function
End Class
